﻿Imports VN.INS.DL.DALC
Imports VN.INS.BL.BE
Public Class MantenimientoUsuarioBC
    Public Function LISTA_USUARIO(ByVal strNombre As String) As DataTable
        Dim ObjMantenimientoUsuarioDA As MantenimientoUsuarioDA
        Dim ObjDt As DataTable

        Try
            ObjMantenimientoUsuarioDA = New MantenimientoUsuarioDA
            ObjDt = ObjMantenimientoUsuarioDA.LISTA_USUARIO(strNombre)
            Return ObjDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Function LISTA_PERFIL() As DataTable
        Dim ObjMantenimientoUsuarioDA As MantenimientoUsuarioDA
        Dim ObjDt As DataTable

        Try
            ObjMantenimientoUsuarioDA = New MantenimientoUsuarioDA
            ObjDt = ObjMantenimientoUsuarioDA.LISTA_PERFIL()
            Return ObjDt

        Catch ex As Exception
            Throw ex
        End Try

    End Function
    Public Function OFICINA_ZONAL() As DataTable
        Dim ObjMantenimientoUsuarioDA As MantenimientoUsuarioDA
        Dim ObjDt As DataTable

        Try
            ObjMantenimientoUsuarioDA = New MantenimientoUsuarioDA
            ObjDt = ObjMantenimientoUsuarioDA.OFICINA_ZONAL()
            Return ObjDt

        Catch ex As Exception
            Throw ex
        End Try

    End Function
    Public Function ejecutor() As DataTable
        Dim ObjMantenimientoUsuarioDA As MantenimientoUsuarioDA
        Dim ObjDt As DataTable

        Try
            ObjMantenimientoUsuarioDA = New MantenimientoUsuarioDA
            ObjDt = ObjMantenimientoUsuarioDA.ejecutor()
            Return ObjDt

        Catch ex As Exception
            Throw ex
        End Try

    End Function
    Public Function tipo_persona() As DataTable
        Dim ObjMantenimientoUsuarioDA As MantenimientoUsuarioDA
        Dim ObjDt As DataTable

        Try
            ObjMantenimientoUsuarioDA = New MantenimientoUsuarioDA
            ObjDt = ObjMantenimientoUsuarioDA.tipo_persona()
            Return ObjDt

        Catch ex As Exception
            Throw ex
        End Try

    End Function
    Public Function JEFE() As DataTable
        Dim ObjMantenimientoUsuarioDA As MantenimientoUsuarioDA
        Dim ObjDt As DataTable

        Try
            ObjMantenimientoUsuarioDA = New MantenimientoUsuarioDA
            ObjDt = ObjMantenimientoUsuarioDA.JEFE()
            Return ObjDt

        Catch ex As Exception
            Throw ex
        End Try

    End Function
    Public Function LISTA_TIPO_USUARIO() As DataTable
        Dim ObjMantenimientoUsuarioDA As MantenimientoUsuarioDA
        Dim ObjDt As DataTable
        Try
            ObjMantenimientoUsuarioDA = New MantenimientoUsuarioDA
            ObjDt = ObjMantenimientoUsuarioDA.LISTA_TIPO_USUARIO()
            Return ObjDt

        Catch ex As Exception
            Throw ex
        End Try

    End Function
    Public Function LISTA_PASSWORD() As DataTable
        Dim ObjMantenimientoUsuarioDA As MantenimientoUsuarioDA
        Dim ObjDt As DataTable
        Try
            ObjMantenimientoUsuarioDA = New MantenimientoUsuarioDA
            ObjDt = ObjMantenimientoUsuarioDA.LISTA_PASSWORD
            Return ObjDt

        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Sub insert_persona_usuario(ByVal per As String, ByVal nom As String, ByVal pater As String, ByVal mater As String, ByVal USUARIO As String, ByVal EJEC As String,
                      ByVal tiper As String, ByVal ofiz As String, ByVal PPER As String, ByVal JEFE As String, ByVal PF As String, ByVal PAS As String,
                      ByVal EST As String, ByVal TPU As String, ByVal USERNAME As String)

        Dim ObjMantenimientoUsuarioDA As MantenimientoUsuarioDA

        Try
            ObjMantenimientoUsuarioDA = New MantenimientoUsuarioDA
            ObjMantenimientoUsuarioDA.insert_persona_usuario(per, nom, pater, mater, USUARIO, EJEC, tiper, ofiz, PPER, JEFE, PF, PAS, EST, TPU, USERNAME)

        Catch ex As Exception
            Throw ex
        End Try

    End Sub
    Public Sub editar_persona_usuario(ByVal per As String, ByVal nom As String, ByVal pater As String, ByVal mater As String, ByVal USUARIO As String, ByVal EJEC As String,
                     ByVal tiper As String, ByVal ofiz As String, ByVal PPER As String, ByVal JEFE As String, ByVal PF As String, ByVal PAS As String,
                     ByVal EST As String, ByVal TPU As String, ByVal USERNAME As String)

        Dim ObjMantenimientoUsuarioDA As MantenimientoUsuarioDA

        Try
            ObjMantenimientoUsuarioDA = New MantenimientoUsuarioDA
            ObjMantenimientoUsuarioDA.editar_persona_usuario(per, nom, pater, mater, USUARIO, EJEC, tiper, ofiz, PPER, JEFE, PF, PAS, EST, TPU, USERNAME)

        Catch ex As Exception
            Throw ex
        End Try

    End Sub


End Class
